<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.0-4</name>
<id>-1</id>
<cardCount>34</cardCount>
<cardID>13805</cardID>
<listID>19931</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- ================ Apple Training Support =================---- Project Name: HyperCard 2.0 Product Training---- Apple employees:-- Design and Development: Jeff Brechlin-- Team Leader: Mary VanRiper---- Contractors:-- Design/Animations: Anne Wysocki-- Programmers: Gabriel Acosta, Kristi Wachter, Anne Wysocki-- Last modified: April 6, 1990-- ========================================================on closeBackgroundhide fld "Feedback"pass closeBackgroundend closeBackground-- This handler dehilites the buttons and hides the feedback on cds.on resetCddehiliteBtnshideFeedbackend resetCd-- This GoNext handler hides the feedback fld if it's empty.on goNextlock screenhide fld "feedback"go nextif fld "feedback" is not empty then show fld "feedback"unlock screen with wipe leftend goNext-- This GoPrev handler hides the feedback fld if it's empty.on goPrevlock screenhide fld "feedback"go previf fld "feedback" is not empty then show fld "feedback"unlock screen with wipe rightend goPrev--========= CHECK ANSWERS-- This handler checks the user's answer on cards that have-- a single answer. It shows feedback using "whichIsHilited",-- "noAns", and "ans", all found in this stack script.on checkOneRight cdOrBghide fld "feedback"put whichIsHilited() into choiceif choice is "none" thennoAns cdOrBgelseans choice,cdOrBgend ifend checkOneRight-- This handler checks the user's answer on cards that have-- more than one answer. It shows feedback using "noAns" and "ans",-- which are found in this stack script.on checkManyRight cdOrBgput empty into choicesrepeat with i=1 to number of cd btns-2if the hilite of btn ("choice" & i) is true thenput i after choicesend ifend repeatif choices is fld "answer" then ans 1,cdOrBgelse if length(choices) = 0 then noAns cdOrBgelse if length(choices) = 1 then ans 2,cdOrBgelse ans 3,cdOrBgend checkManyRight--========= RESET BUTTONS-- This handler resets draggable buttons to their original locations.on resetBtnsrepeat with i = 1 to number of cd btnsmoveBtnBack iend repeatend resetBtns-- This handler reset a single draggable btn to its original location.on moveBtnBack iset the loc of btn i to line i of cd fld "theLocs"end moveBtnBack--========= BUTTON HILITES-- This handler returns the number of the hilited button. If no-- button is hilited, it returns "none".function whichIsHilitedrepeat with i=1 to number of cd btnsif the hilite of btn i is true thenreturn iend ifend repeatreturn "none"end whichIsHilited-- This handler dehilites all btns, then hilites the target.-- Used for groups of radio buttons.on HiliteRadiodehiliteBtnsset the hilite of the target to trueend HiliteRadio-- This handler dehilites all btns.on dehiliteBtnsrepeat with i = 1 to number of cd btnsset the hilite of cd btn i to falseend repeatend dehiliteBtns--========= FEEDBACK-- This handler shows feedback when the user presses the "Done" button-- before choosing an answer. The "cdOrBg" argument handles cds that-- must show feedback in the cd layer (because of cd-layer graphics).on noAns cdOrBglock screenif cdOrBg contains "c" thenput "Please select an answer first." into cd fld "feedback"show cd fld "Feedback"elseput "Please select an answer first." into fld "feedback"show fld "Feedback"end ifunlock screen with wipe rightend noAns-- This handler gives feedback The "cdOrBg" argument handles cds that-- must show feedback in the cd layer (because of cd-layer graphics).on ans num,cdOrBglock screenif cdOrBg contains "c" thenput line num of fld "AllFeed" into cd fld "feedback"show cd fld "feedback"elseput line
